Code
library(tidyverse)
tuesdata <- tidytuesdayR::tt_load(2024, week = 50)
dta <- tuesdata$parfumo_data_clean Exploring the Parfumo Fragrance Dataset
Julia Whitman
December 5, 2024
Rows: 59,325
Columns: 13
$ Number <chr> "455", "0071", "0154", "0162", "0171", "0191", "02", "03…
$ Name <chr> "Tabac Écarlate", "Tidal Pool", "Pumpkin Pie", "Wet Ston…
$ Brand <chr> "Le Ré Noir", "CB I Hate Perfume", "CB I Hate Perfume", …
$ Release_Year <dbl> NA, 2004, 1998, 2006, NA, 1975, NA, NA, NA, NA, NA, NA, …
$ Concentration <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ Rating_Value <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 7.8,…
$ Rating_Count <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2, 2…
$ Main_Accords <chr> NA, NA, "Green, Leathery, Chypre, Animal", NA, NA, NA, N…
$ Top_Notes <chr> NA, "Bergamot", NA, NA, NA, NA, "Coconut", "Basil, Berga…
$ Middle_Notes <chr> NA, "French lavender", NA, NA, NA, NA, "Milk, Tonka bean…
$ Base_Notes <chr> NA, "Musk, Foulness", NA, NA, NA, NA, "Amber, Musk, Vani…
$ Perfumers <chr> "Valery Sokolov / Валерий Соколов", "Harry Frémont", NA,…
$ URL <chr> "https://www.parfumo.com/Perfumes/Le_Re_Noir/455-tabac-e…
---
title: "Tidy Tuesday: The Scent of Data"
subtitle: Exploring the Parfumo Fragrance Dataset
author:
- name: Julia Whitman
#url: https://example.com
#affiliation:
author-title: ""
affiliation-title: ""
published-title: ""
date: last-modified
format:
html:
embed-resources: true
anchor-sections: true
code-tools: true
code-fold: true
fig-width: 6
fig-height: 4
code-block-bg: "#f1f3f5"
code-block-border-left: "#31BAE9"
mainfont: Source Sans Pro
theme: journal
toc: true
toc-depth: 3
toc-location: left
captions: true
cap-location: margin
table-captions: true
tbl-cap-location: margin
reference-location: margin
pdf:
pdf-engine: lualatex
toc: false
number-sections: true
number-depth: 2
top-level-division: section
reference-location: document
listings: false
header-includes:
\usepackage{marginnote, here, relsize, needspace, setspace}
\def\it{\emph}
#bibliography:
comments:
hypothesis: false
execute:
warning: false
message: false
---
```{r}
library(tidyverse)
tuesdata <- tidytuesdayR::tt_load(2024, week = 50)
dta <- tuesdata$parfumo_data_clean
```
```{r}
glimpse(dta)
```